#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <unistd.h>
#include <arpa/inet.h>
#include <sys/socket.h>
#include "ssu_log.h"

#define FILENAME "20022992_1_s.log"
#define TRUE 1
#define FALSE 0
#define BUF_SIZE 1024

extern int calcexp(const char *exp, int *berror);

void error_handling(char *message);
void _readlog();

int main(int argc, char *argv[]) {
	int serv_sock, clnt_sock, option;
	struct sockaddr_in serv_adr, clnt_adr;
	socklen_t optlen, clnt_adr_sz;

	char greeting_message[] = "Input formula.\n";
	char error_message[] = "Invalid formula.\n";
	char end_message[] = "Bye\n";
	char send_message[BUF_SIZE];
	char recv_message[BUF_SIZE];
	int str_len;

	// 계산관련
	char tmpbuf[BUF_SIZE];
	int berror;
	int result;

	// 로그 파일 스트림 열기
	FILE *fp = fopen(FILENAME, "w+");

	// 2.3: 실행형식
	// 포트를 인자 값으로 전달
	if (argc != 2) {
		printf("Usage : %s <port>\n", argv[0]);
		exit(1);
	}

	serv_sock = socket(PF_INET, SOCK_STREAM, 0);
	if (serv_sock == -1)
		error_handling("socket() error");

	// 테스트 환경을 위한 소켓 옵션 적용
	optlen = sizeof(option);
	option = TRUE;
	setsockopt(serv_sock, SOL_SOCKET, SO_REUSEADDR, &option, optlen);

	memset(&serv_adr, 0, sizeof(serv_adr));
	serv_adr.sin_family = AF_INET;
	serv_adr.sin_addr.s_addr = htonl(INADDR_ANY);
	serv_adr.sin_port = htons(atoi(argv[1]));

	// 2.4.1: 생성된 소켓을 이용하여 포트를 오픈하고 사용자의 접속을 기다린다
	if (bind(serv_sock, (struct sockaddr*) &serv_adr, sizeof(serv_adr)) == -1)
		error_handling("bind() error");
	if (listen(serv_sock, 5) == -1)
		error_handling("listen() error");
	clnt_adr_sz = sizeof(clnt_adr);
	clnt_sock = accept(serv_sock, (struct sockaddr*) &clnt_adr, &clnt_adr_sz);

	// 2.4.2: 클라이언트 접속시 시작 문자배열을 전송한다
	// '\0' 추가
	write(clnt_sock, greeting_message, strlen(greeting_message) + 1);

	// 2.4.5: "Bye.\n"이 입력될 때까지 반복 수행
	while (1) {
		// 수신문자배열 초기화
		memset(recv_message, 0, sizeof(recv_message));
		str_len = 0;

		// 2.4.3: 사용자로부터 수신되는 수식 메시지 출력 및 로그 기록
		str_len = read(clnt_sock, recv_message, BUF_SIZE);
		if (str_len == -1) {
			error_handling("read() error!");
			break;
		}

		printf("%s", recv_message);

		// 연결을 종료하는 문자 입력 처리
		if (!strcmp(recv_message, end_message))
			break;

		// '\n' 포함, '\0' 문자 제외
		ssu_log_write(fp, recv_message, str_len - 1);

		// ======================================================== //
		// 2.5: 계산 기능 처리
		// int값, +-*/() 처리가 가능한 수식 계산 구현
		berror = 0;
		memset(tmpbuf, 0, sizeof(tmpbuf));

		// '\n' 만 입력된 경우 오류 처리
		if (strlen(recv_message) == 1) {
			berror = 1;
		} else {
			// 수식 메시지 끝 '\n' 제외
			strncpy(tmpbuf, recv_message, strlen(recv_message) - 1);

			// 수식 계산
			result = calcexp(tmpbuf, &berror);
		}

		// 송신 문자배열 초기화
		memset(send_message, 0, sizeof(send_message));

		// 2.4.4: 수식 계산 결과 메시지를 사용자에게 전송
		// 만약 수식에 오류가 있다면 오류 메시지 전송
		// 오류 상태 변수 적용
		if (berror) {
			strncpy(send_message, error_message, strlen(error_message));
		} else {
			// int -> char 변환 처리
			sprintf(tmpbuf, "%d\n", result);
			strncpy(send_message, tmpbuf, strlen(tmpbuf));
		}

		// 수식 계산 결과 전송
		// '\0' 추가
		write(clnt_sock, send_message, strlen(send_message) + 1);
	}

	// 2.4.6: 소켓 종료
	close(clnt_sock);
	close(serv_sock);

	// 2.4.6: 파일 스트림 종료
	fclose(fp);

	// 기록된 로그 확인
	_readlog();

	return 0;
}

void error_handling(char *message) {
	fputs(message, stderr);
	fputc('\n', stderr);
	exit(1);
}

void _readlog() {
	char buf[BUF_SIZE];
	int logSize;
	FILE *fp = fopen(FILENAME, "r+");

	memset(buf, 0, sizeof(buf));
	while (logSize = ssu_log_read(fp, buf)) {
		printf("%d:%s", logSize, buf);
		memset(buf, 0, sizeof(buf));
	}

	fclose(fp);
}
